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ABSTRACT 


In  this  memorandum,  we  discuss  a  computer  program  that  promotes  FORTRAN 
program  compi labi 1 ity  between  computers  that  have  different  FORTRAN 
compilers.  The  computer  program  translates  VAX  FORTRAN  structured  GO  TO-less 
control  elements  that  are  not  American  National  Standard  FORTRAN  77  into 
structured  simulated  analogs  that  are  compilable  by  any  FORTRAN  compiler. 

This  program  is  intended  to  complement  a  recently  developed  program  that 
promotes  program  readability. 


ADMINISTRATIVE  INFORMATION 

This  memorandum  was  prepared  under  Job  Order  No.  771Y00,  Special  Projects 
and  Studies.  The  authors  are  located  at  the  Naval  Underwater  Systems  Center, 
New  London,  Connecticut,  06320. 
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INTRODUCTION 

In  an  earlier  memorandum  [1],  one  of  the  authors  discussed  a  computer 
program  that  aids  in  structuring  code  entirely  in  FORTRAN.  The  computer 
program  is  a  labor  saving  tool  whose  use  eliminates  effectively  the  manual 
effort  of  formatting  code  according  to  programming  style  conventions  [1,  2,  3] 
that  promote  FORTRAN  program  readability.  In  particular,  the  computer  program 
eliminates  the  laborious  effort  of  manually  indenting  GO  TO-less  syntactical 
control  elements  of  structured  coding,  as  well  as  their  simulated 
transportable  analogs,  that  appear  in  Figure  1.  But  the  GO  TO-less  forms, 
unlike  their  simulated  analogs,  are  not  compilable  in  general  by  FORTRAN 
compilers  that  are  implementations  of  American  National  Standard  FORTRAN  77 
[4],  with  the  exception  of  the  IF  THEN  ELSE  which  is  part  of  the  standard. 

For  example,  although  the  GO  TO-less  forms  in  Figure  1  are  compilable  by  DEC'S 
VAX  FORTRAN  compiler,  they  are  not  compilable  by  UNIVAC's  ASCII  FORTRAN 
compiler.  Therefore,  if  one  wishes  to  promote  compilability  of  FORTRAN 
programs  by  different  FORTRAN  compilers,  one  should  not  use  the  GO  TO-less 
forms. 

However,  since  the  GO  TO-less  forms  are  easier  to  code  than  their 
simulated  analogs,  they  have  been  used  extensively  when  supported  by  a 
vendor's  FORTRAN  compiler  in  spite  of  the  transportability  problem  that  their 
use  presents.  Therefore,  in  order  to  reduce  the  reprogramming  effort  required 
for  FORTRAN  programs  that  contain  these  forms  and  will  eventually  migrate  to 
UNIVAC  1100  series  computers,  we  have  written  a  computer  program  in  PASCAL 
that  will  translate  the  GO  TO-less  forms  in  Figure  1  into  their  simulated 
transportable  forms. 


CONTROL  STRUCTURES  TRANSLATED  BY  THE  TRANSLATOR 

If  P  is  a  Boolean  expression,  then  the  following  control  structures  on 
the  left  are  translated  by  the  translator  into  their  simulated  transportable 
analogs  on  the  right.  New  statement  labels  that  are  inserted  in  the  simulated 
forms  by  the  translator  are  greater  than  20000;  for  example,  the  translator 
will  generate  values  greater  than  20000  for  the  statement  labels  nl  and  n2  of 

the  simulated  analog  of  the  Block  DO  WHILE,  and  for  the  statement  label  nl  of 

the  simulated  analog  of  the  Block  DO  n2  WHILE.  Note  that  a  new  statement 

label  is  inserted  to  implement  a  simulated  form,  only  if  one  is  not  present  in 
the  GO  TO-less  form  that  can  be  used. 
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TO- 1  ess  FORMS 

DO  WHILE 
DO  WHILE(P) 

END  DO 

DO  n  2  WHILE 
DO  n 2  WHILE(P) 

END  DO 

00  n  2  WHILE(P) 

CONT I NUE 

DO 

DO  J=  1  ,N 

END  DO 


FIGURE  1 

SIMULATED  (TRANSPORTABLE)  FORMS 

C  DO  WHILE (P) 

nl  I F ( . NOT . P) GO  TO  n2 


GO  TO  nl 
n 2  CONTINUE 


C  DO  WHILE(P) 

nl  I F ( .NOT. P ) GO  TO  n2 


GO  TO  nl 
n 2  CONTINUE 


DO  n 1  J=  1  ,  N 


nl  CONTINUE 
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AN  EXAMPLE 

Since  the  computerized  translation  of  GO  TO-less  forms  in  a  program  may 
upset  the  order  of  the  program's  statement  labels,  or  generate  simulated  forms 
that  are  not  indented  exactly  as  they  are  in  Figure  1,  resequencing  of 
statement  labels,  or  reindentation  of  control  structures,  if  desired,  can  be 
done  easily  with  the  aid  of  the  structured  programming  tool  "CLEAN"  described 
in  [1]. 

For  example,  consider  translating  the  GO  TO-less  structures  in  the 
program  segment  in  Figure  2.  The  translator  will  transform  this  program 
segment  into  the  one  given  in  Figure  3,  where  the  statement  labels  are  out  of 
sort  and  the  simulated  DO  WHILE  is  not  indented  exactly  as  it  is  in  Figure  1. 
Program  CLEAN  can  be  used  now  to  transform  the  program  segment  in  Figure  3 
into  the  one  in  Figure  4,  where  the  statement  labels  are  now  in  order,  and  the 
00  WHILE  is  indented  as  it  is  in  Figure  1.  These  transformations  can  be 
accomplished  on  both  the  VAX  11/780  and  UNIVAC  1100/62. 

The  following  sequence  of  VAX  JCL  commands  will  translate  Figure  2  into 
Figure  3,  when  the  translator  TRANS  in  directory  [MJG. CLEAN]  on  nodes  2,  3  and 
7  is  executed  with  Figure  2  assigned  to  the  translator's  input  text  file 
INFILE  and  Figure  3  to  the  translator's  output  text  file  OUTFILE. 

$  ASSIGN  FIG2.F0R  INFILE 
$  ASSIGN  FIG3.F0R  OUTFILE 
$  RUN  [MJG.CLEAN]TRANS 

Execution  of  program  CLEAN  in  directory  [MJG. CLEAN]  with  Figure  3  now  assigned 
to  CLEAN's  input  text  file  INFILE,  and  Figure  4  to  CLEAN's  output  text  file 
OUTFILE,  resequences  statement  labels  and  reindents  control  structures,  using 
a  label  increment  of  50  and  an  indentation  factor  of  3: 

$  ASSIGN  FIG3.F0R  INFILE 
$  ASSIGN  FIG4.F0R  OUTFILE 
$  RUN  [MJG.CLEAN]CLEAN 
$_0ptions:  C 

$_Label  increment:  50 

$_Indentation  factor:  3 

The  corresponding  UNIVAC  JCL  commands  to  accomplish  these  transformations 
are  given  below. 

Translation  of  Figure  2  into  Figure  3: 

@ASG,A  USER*FILE. 

@ASG, T  INFILE. 

@ASG,T  OUTFILE. 

@C0PY, I  USER*FILE.FIG2,  INFILE. 

@XQT,Y  TRANS*PASCAL. TRANS 
@C0PY, I  OUTFILE.,  USER*FILE.FIG3 

Transformation  of  Figure  3  into  Figure  4: 

@C0PY, I  USER*FILE.FIG3,  INFILE. 

@XQT, Y  CLEAN*PASCAL.UTIL 
(User  inputs  to  CLEAN) 

@C0PY, I  OUTFILE.,  USER*FILE.FIG4 

When  copying  FIG2  (or  FIG3)  into  data  file  INFILE,  the  cycle  number  of  FIG2 
(or  FIG3)  must  be  zero. 
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16300 

FIGURE  2 

1  6400 

16500 

16600 

(I;****#*###**####*#***#*#**#*##**#***#*##**###*#####*###*#***#***#***#* 

1  6700 

c 

AUTHOR:  M.  J.  GOLDSTEIN 

1  6800 

c 

THIS  PROGRAM  TESTS  THE  ACCURACY  OF  DOUBLE  PRECISION  PSEUDOINVER¬ 

1  6900 

c 

SION  ROUTINES.  IT  PRINTS  THE  MINIMUM  ( MI NDGT )  , MAX  I  MUM  (MAXDGT )  AND 

1  7000 

c 

EXPECTED  NUMBER  OF  SIGNIFICANT  DIGITS  ( EXSDGT )  IN  THE  ELEMENTS 

17  100 

c 

OF  THE  COMPUTED  PSEUDOINVERSE  OF  EACH  MATRIX  A.  (THE  STANDARD 

1  7200 

£#**#*******##*********##*#***####**#*#*##***#**###**#####*#****#**#** 

1  7300 

DIMENSION  A (6, 4) , AINVT(6,4) ,G(4,6) 

1  7400 

DO  WHILE(N.LE.LM) 

1  7500 

c 

1  7600 

c 

GENERATE  THE  N-TH  MATRIX  A  AND  ITS  PSEUDO¬ 

17700 

c 

INVERSE  TRANSPOSE  ainvt 

1  7800 

c 

1  7900 

A1=TW0*«(2«N) 

18000 

A  1 INV  =  0NE/A 1 

18  100 

PRINT  1050. A1 , N 

18200 

DO  J=1 .4 

18300 

do  1=1,6 

1  8400 

GO  T0(50 . 250 , 450 , 450 , 250 , 650) , I 

1  8500 

c 

1  : 

1  8600 

50 

IF( ( J . EQ. 1 ) .OR . (J.EQ.4) )G0  TO  100 

18700 

GO  TO  150 

1  8800 

c 

THEN 

1  8900 

100 

A ( I  ,  J)=A1+A4 

19000 

A  I N VT (I , J )  =  ( A  1 INV+A4INV) /EIGHT 

19100 

GO  TO  200 

19200 

c 

ELSE 

19300 

1  50 

A (  I  ,  J) =A 1 -A4 

19400 

AINVT( I , J )  =  ( A  1 INV-A4INV) /EIGHT 

19500 

200 

CONTINUE 

19600 

GO  TO  850 

1  9700 

c 

2,5: 

19800 

250 

I F ( ( J . EQ.  1 )  .OR  .  ( J. EQ.3) )G0  TO  300 

1  9900 

GO  TO  350 

20000 

c 

THEN 

20100 

300 

A (  I  ,  J)=A2 

20200 

AINVT (I , J)=A2INV/EIGHT 

20300 

GO  TO  400 

20400 

c 

ELSE 

20500 

350 

A ( I , J )=-A2 

20600 

AINVT (I , J)=-A2INV/EIGHT 

20700 

400 

CONTINUE 

20800 

GO  TO  850 

20900 

c 

3.4: 

2  1  000 

450 

IF((J.EQ. 1 )  .OR.  (J.EQ.2) ) GO  TO  500 

2  1100 

GO  TO  550 

21  200 

c 

THEN 

2  1  300 

500 

A ( I  ,  J)=A3 

2  1  400 

AINVT (I , J)=A3INV/EIGHT 

2  1  500 

GO  TO  600 

2  1  600 

c 

ELSE 

2  1  700 

550 

A ( I , J)=-A3 

21800 

AINVT (I , J)=-A3INV/EIGHT 

2  1  900 

600 

CONTINUE 

22000 

GO  TO  850 

22  1  00 

c 

6: 

22200 

650 

IF( (J  .  EQ.  1  )  .OR.  (J.EQ.4) )G0  TO  700 

22300 

GO  TO  750 

22400 

c 

THEN 

22500 

700 

A  (  I  ,  J )=A 1 -A4 

22600 

AINVT(I,J)=(A1 INV-A4INV) /EIGHT 

22700 

GO  TO  800 

22800 

c 

ELSE 

22900 

750 

A  (  I  ,  J ) =A 1 +A4 

23000 

AINVT (I ,J)=(A1INV+A4INV) /EIGHT 

23  1  00 

800 

CONTINUE 

23200 

850 

CONTINUE 

23300 

END  DO 

23400 

END  DO 

23500 

N  =  N+  1 

23600 

END  DO 

23700 

STOP 

23800 

1  050 

FORMAT  ( 1 H  , 1 9HVALUE  OF  A1  IS  NOW  .D20.12.10H  N  IS  NOW  12) 

23900 

END 
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24100 

FIGURE  3 

24200 

24300 

24400 

C 

44**4*****4*******************44*****************************4******4 

24500 

C 

AUTHOR:  M.  J.  GOLDSTEIN 

24600 

C 

THIS  PROGRAM  TESTS  THE  ACCURACY  OF  DOUBLE  PRECISION  PSEUDOINVER¬ 

24700 

C 

SION  ROUTINES.  IT  PRINTS  THE  MINIMUM  ( M I NDGT )  , MAX I MUM  (MAXDGT )  AND 

24800 

C 

EXPECTED  NUMBER  OF  SIGNIFICANT  DIGITS  ( EXSDGT )  IN  THE  ELEMENTS 

24900 

c 

OF 

THE  COMPUTED  PSEUDOINVERSE  OF  EACH  MATRIX  A.  (THE  STANDARD 

25000 

C: 

44*4***4******************************************************4*****4 

25100 

DIMENSION  A (6. 4) ,AINVT(6,4) ,G(4,6) 

25200 

c 

DO 

WHILE  (N.LE.LM) 

25300 

49900 

IF 

( . NOT. (N . LE . LM) )G0  TO  50020 

25400 

C 

25500 

C 

GENERATE  THE  N-TH  MATRIX  A  AND  ITS  PSEUDO¬ 

25600 

C 

INVERSE  TRANSPOSE  AINVT 

25700 

C 

25800 

A1=TW0**(2*N) 

25900 

A  1  I N V=ONE / A  1 

26000 

PRINT  1050, A1  , N 

26100 

DO  50010  J  =1 ,4 

26200 

do  50000  I  =1,6 

26300 

GO  T0(50,250 ,450 ,450 , 250 ,650)  ,  I 

26400 

C 

1  : 

26500 

50 

IF (  (  J  .EQ .  1 )  . OR .  ( J . EQ . 4) )G0  TO  100 

26600 

GO  TO  150 

26700 

C 

THEN 

26800 

100 

A ( I , J ) =A 1 +A4 

26900 

AINVT(I,J)=(A1INV+A4INV) /EIGHT 

27000 

GO  TO  200 

27  1  00 

C 

ELSE 

27200 

1  50 

A  (  I  ,  J  )  =  A  1  -A4 

27300 

AINVT(I,J)=(A1INV-A4INV) /EIGHT 

27400 

200 

CONTINUE 

27500 

GO  TO  850 

27600 

C 

2,5: 

27700 

250 

I F ( (J.EQ. 1 ) .OR. ( J.EQ.3) ) GO  TO  300 

27800 

GO  TO  350 

27900 

C 

THEN 

28000 

300 

A  ( I  ,  J)=A2 

28  1  00 

A  I NVT ( I  , J ) =A2 INV/E IGHT 

28200 

GO  TO  400 

28300 

C 

ELSE 

28400 

350 

A  (  I  ,  J  )  =  -  A  2 

28500 

A  I NVT ( I  , J ) =-A2INV/EI GHT 

28600 

400 

CONTINUE 

28700 

■ 

GO  TO  850 

28800 

C 

3,4: 

28900 

450 

IF  (  (  J  .  EQ.  1  )  .  OR  .  (  J  .  EQ  .  2)  )  GO  TO  500 

29000 

GO  TO  550 

29100 

C 

THEN 

29200 

500 

A  (  I  ,  J)=A3 

29300 

A  I  NVT ( I  , J)=A3INV/EIGHT 

29400 

GO  TO  600 

29500 

C 

ELSE 

29600 

550 

A  (  I  ,  J)=-A3 

29700 

A I NVT ( I , J ) =-A3INV/ EIGHT 

29800 

600 

CONTINUE 

29900 

GO  TO  850 

30000 

C 

6  : 

30  1  00 

650 

IF( ( J.EQ. 1 ) .OR. ( J.EQ. 4) )G0  TO  700 

30200 

GO  TO  750 

30300 

c 

THEN 

30400 

700 

A ( I , J ) =A 1 -A4 

30500 

AINVT (I  , J ) = ( A  1  INV-A4INV) /EIGHT 

30600 

GO  TO  800 

30700 

c 

ELSE 

30800 

750 

A  (  I  ,  J ) =A 1 +A4 

30900 

A  I NVT ( I  , J )  =  ( A  1 INV  +  A4INV ) /EIGHT 

3  1  000 

800 

CONTINUE 

3  1100 

850 

CONTINUE 

3  1  200 

50000 

CONTINUE 

3  1  300 

500  1  0 

CONTINUE 

3  1  400 

N  =  N+  1 

3  1  500 

GO 

TO  49900 

3  1  600 

50020 

CONTINUE 

3  1  700 

STOP 

3  1  800 

1  050 

FORMAT  ( 1 H  , 1 9HVALUE  OF  A1  IS  NOW  ,D20.12,10H  N  IS  NOW  ,12) 

3  1  900 

END 
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32100 
32200 
32300 
32400 
32500 
32600 
32700 
32800 
32900 
33000 
33  1  00 
33200 
33300 
33400 
33500 
33600 
33700 
33800 
33900 
34000 
34100 
34200 
34300 
34400 
34500 
34600 
34700 
34800 
34900 
35000 
35100 
35200 
35300 
35400 
35500 
35600 
35700 
35800 
35900 
36000 

36  1  00 
36200 
36300 
36400 
36500 
36600 
36700 
36800 
36900 
37000 

37  100 
37200 
37300 
37400 
37500 
37600 
37700 
37800 
37900 
38000 

38  1  00 

38200 

38300 

38400 

38500 

38600 

38700 

38800 

38900 

39000 

39  1  00 
39200 
39300 
39400 
39500 
39600 
39700 
39800 
39900 


FIGURE  4 


£444444**4***4444**44*444*4**4*4*44444*444*4**4444*****4**444**4**4*4* 

C  AUTHOR:  M.  J.  GOLDSTEIN 

C  THIS  PROGRAM  TESTS  THE  ACCURACY  OF  DOUBLE  PRECISION  PSEUDOINVER- 

C  SION  ROUTINES.  IT  PRINTS  THE  MINIMUM  ( MI NDGT )  , MAXI  MUM  (MAXDGT )  AND 

C  EXPECTED  NUMBER  OF  SIGNIFICANT  DIGITS  ( EXSDGT )  IN  THE  ELEMENTS 

C  OF  THE  COMPUTED  PSEUDO  I NVERSE  OF  EACH  MATRIX  A.  (THE  STANDARD 

C*********4444*****4444++44**4+++4***44444***4*4**44***444***4******** 

DIMENSION  A(6,4),AINVT(6,4),G(4,6) 

C  DO  WHILE(N.LE.LM) 

50  I F( .NOT . (N. LE . LM) )GO  TO  1050 
C 

C  GENERATE  THE  N-TH  MATRIX  A  AND  ITS  PSEUDO- 

C  INVERSE  TRANSPOSE  A  I N VT 

C 

A1=TWO**(2*N) 

A  1  I NV  =  0NE/A 1 
PRINT  1  1 00 , A  1  ,  N 
DO  1000  J=1 ,4 
do  950  1=1.6 

GO  T0( 1 00 , 300 ,500 , 500 , 300 , 700)  , I 
C  1  : 


100 


C 

150 


C 

200 

250 


X  F ( ( J . EQ.  1  ) .OR .  ( J . EQ.4) ) GO  TO  150 
GO  TO  200 
THEN 

A ( I . J)=A1+A4 

AINVT(I,J)=(A1 INV+A4INV) /EIGHT 
GO  TO  250 
ELSE 

A ( I  ,  J)=A1-A4 

AINVT(I,J)=(A1INV-A4INV)/EIGHT 
CONTINUE 
GO  TO  900 


C 

300 

C 

350 


C 

400 

450 

C 

500 

C 

55U 


C 


IF( ( J .EQ. 1 ) .OR. ( J.EQ.3) ) GO  TO  350 
GO  TO  400 
THEN 

A ( I  ,  J)=A2 

AINVTCI , J)=A2INV/ EIGHT 
GO  TO  450 
ELSE 

A ( I . J)=-A2 

AINVTCI , J)=-A2INV/ EIGHT 
CONTINUE 
GO  TO  900 

IFC ( J. EQ. 1 ) .OR. ( J.EQ.2) )GO  TO  550 
GO  TO  600 
THEN 

A ( I  ,  J)=A3 

AINVTCI , J)=A3 IN V/ EIGHT 
GO  TO  650 
ELSE 


600  A(I,J)=-A3 

AINVT(I , J)=- A3 INV/ EIGHT 
650  CONTINUE 

GO  TO  900 

C  6: 

700  I F ( ( J . EQ . 1 ) .OR . ( J . EQ . 4) ) GO  TO  750 


GO  TO  800 

C  THEN 

750  A ( I , J)=A1-A4 

AINVTCI ,J)=(A1 INV_A4INV)/EIGHT 
*  GO  TO  850 

C  ELSE 

800  A ( I  ,  J ) =A 1 +A4 

AINVTCI, J)=(A1INV+A4INV)/EIGHT 
850  CONTINUE 

900  CONTINUE 

950  CONTINUE 

1000  CONTINUE 
N  =  N+  1 
GO  TO  50 
1050  CONTINUE 
STOP 

1100  FORMAT  ( 1 H  , 1 9HVALUE  OF  A1  IS  NOW  .D20.12.10H  N  IS  NOW  ,12) 
END 
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PROGRAM  FEATURES 

The  following  program  features  should  be  emphasized: 

1.  Each  FORTRAN  module  processed  by  the  program  translator  must 
terminate  on  the  FORTRAN  END  statement. 

2.  The  translator  will  process  FORTRAN  modules  that  use  either  upper  or 
lower  case  characters. 

3.  The  translator  will  process  all  program  modules  in  a  FORTRAN  file  so 
that  a  FORTRAN  file  containing  more  than  one  FORTRAN  module  may  be 
assigned  to  the  text  file  INFILE. 

4.  Only  the  GO  TO-less  structures  in  Figure  1  are  modified  by  the 
translator.  All  other  FORTRAN  statements  remain  unchanged! 
Therefore,  FORTRAN  modules  that  do  not  use  any  of  the  GO  TO-less 
structures  in  Figure  1  are  left  unchanged  by  the  translator. 

5.  Modified  statements  occupy  the  same  print  positions  as  the 
statements  that  they  replace;  however,  new  statements  that  are  added 
(conditional  and  explicit  transfers  of  control)  are  not  indented  to 
conform  with  the  indentation  convention  shown  in  Figure  1. 

6.  New  statement  labels  generated  by  the  translator  have  values  greater 
than  20000,  so  that,  in  general,  they  will  not  interfere  with 
existing  statement  labels. 

7.  To  complement  the  program  translator,  program  "CLEAN"  can  be  used  to 
resequence  statement  labels  and  reindent  control  structures! 
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OVERVIEW  OF  TRANSLATION  ALGORITHM 

The  translation  algorithm  is  based  on  the  observation  that  the  GO  TO-less 
structures  in  Figure  1  can  be  translated  into  their  simulated  analogs  by  using 
push-down  stacks.  Essentially  the  line  numbers  of  statements  that  introduce 
GO  TO-less  structures  are  placed  on  a  push-down  stack  when  they  are 
encountered.  When  an  END  DO  (structure  terminator)  is  encountered,  however, 
the  stack  is  "popped"  and  the  structure  terminator  is  paired  with  the  line 
number  at  which  the  structure  is  introduced. 

For  example,  consider  the  following  simple  nest  of  GO  TO-less  structures: 

line  1  DO  I  =  1 ,  N 

line  2  DO  J  =  1,  N 

C(  I, J)  =  0.0 
END  DO 
END  DO 

When  a  DO  line  is  identified,  its  line  number  (line  i)  is  placed  on  a 
push-down  stack,  so  that  immediately  after  the  second  DO  has  been  processed, 
the  push-down  stack  for  our  simple  nest  contains 

1  ine  2  < —  top  of  stack 

line  1 

When  an  END  DO  is  identified,  it  is  converted  to  a  labeled  CONTINUE  statement, 
the  line  number  at  the  top  of  the  stack  is  removed  and  placed  on  an  auxiliary 
stack  along  with  the  label,  n(3-i),  of  the  CONTINUE  statement.  This  properly 
pairs  in  the  auxiliary  stack  the  line  number  introducing  a  GO  TO-less 
structure  with  the  label  assigned  to  the  structure  terminator.  Processing  the 
code  from  beginning  to  end  in  this  manner,  the  translator  generates  the 
auxiliary  stack: 


Auxi  1 iary  stack: 

line  1,  n2  < —  top  of  stack 

line  2,  nl 

and  the  partially  translated  code: 


line  1 
1  ine  2 


DO  I  =  1,  N 
DO  J  =  1,  N 
C( I, J)  =  0 
nl  CONTINUE 
n2  CONTINUE 


Now  reading  the  partially  translated  code  from  beginning  to  end,  when  a 
line  number  is  encountered  that  matches  the  line  number  on  the  top  of  the 
auxiliary  stack,  the  translator  inserts  the  stack  label  in  the  corresponding 
line  of  FORTRAN  and  then  "pops"  the  stack.  This  procedure  is  repeated  until 
the  auxiliary  stack  is  empty.  The  final  translated  code  is 

DO  n2  I  =  1,  N 
DO  nl  J  =  1 ,  N 
C(I,J)  =  0.0 
nl  CONTINUE 
n2  CONTINUE 
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SUMMARY 

A  computer  program  is  available  that  translates  VAX  FORTRAN  structured  GO 
TO-less  control  elements  that  are  not  American  National  Standard  FORTRAN  77 
into  structured  simulated  analogs  that  are  compilable  by  any  FORTRAN 
compiler.  This  capability  reduces  the  manual  reprogramming  effort  required  to 
successfully  recompile  VAX  FORTRAN  programs  on  other  computer  systems  with 
FORTRAN  compilers  that  will  not  compile  these  non-standard  control  elements. 
This  capability,  like  program  “CLEAN"  [1],  is  being  provided  to  NUSC/NET  users 
as  a  software  development  aid  in  producing  more  maintainable  FORTRAN  programs. 
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